unit addComment;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TformAddComment = class(TForm)
    memoSingleComment: TMemo;
    bbOK: TBitBtn;
    bbCancel: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
    function getComment: TStringList;
  end;

var
  formAddComment: TformAddComment;

implementation

{$R *.dfm}

function TformAddComment.getComment : TStringList;
var
  tempList : TStringList;
begin
  tempList := TStringList.Create;
  memoSingleComment.Clear;

  formAddComment.ShowModal;

  tempList.AddStrings(memoSingleComment.Lines);
  Result := tempList;
end;

end.
